Function GET_COLCHAR(ȣ As Integer) As String

    Dim ӽüּ As String
    
    ӽüּ = Cells(1, ȣ).Address(False, False)
    GET_COLCHAR = Replace(ӽüּ, "1", "")

End Function